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if actor fires: 

for all actor output queues: 

queue age = queue age + iteration delay 



operation 



if operator is executed: 

output token age = max(input token ages) 

if token enters queue: 

token age = token age + travel delay 



CHECK EXPECTATION: 

token age at output of queue 
> queue age 

IF SUCCESS: 

queue age = token age 

IF FAIL: 

warn user 

token age = queue age 
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dfix T_sample(8, 6); 
df ix T.acc (8, 6) ; 
dfix T_bit (1, O, ns); 
double hardwired.coef = { 



0.5/ 0.2; -0.3, 0.15 }; 



fsm correlator: : define (elk * _ck) 
{ 

coef (4 # ck, T.sample) 

sample (4, ck, T^sample) 



sig.array 
sig_array 
sig 

sig 
sig 



accu (ck, T.accu > 

sample_in (T.sample ) 

coef_in (T.sample ) 

corr.out (T_sample ) 

load (ck, T.bit ), 

load.ctr (T.bit ); 



sfg initialize_coefs ; 
for (i = 0; i < 4; i++) 

coef[i] - y(T_sampla, hardwired. coef [i] ); 



sfg load_coef_0; 

input (coef _in) ; 

coef [0] » in_coef_in; 

sfg correl.l ; 

accu = cast(T.acc, coef[0] * sampla[0] + coefCl] » sampled]); 



sfg correl_2; 

corr = accu + cast(T„acc, coef[2] * sample[2] + coef[3] * sample[3] ) 
output (corr) ; 



sfg read.sample ; 
input (sample_in) ; 
for (i 3 3; i >=0 ; i~ ) 
if (i) 

sampled] = sample [i -1] ; 
else 

sample Ci] — sample_in; 

sfg read w control ; 
input (load_ctr) ; 
load 3 load.ctr; 



fsm rayfsm; 
initial rst; 
state phase.l ; 
state phase_2; 

rst << always << initialize.coef s 
phasel << always << read.control 

<< correl.l 
phase2 << !cnd(load) << correl_2 ' 

<< read.aaflpla 
phase: << cnd(load) << correl.2 

<< read. sample 

<< load.coef.O 

return myfsm; 



<< phasel; 
<< phase2; 
<< phasel ; 

<< phasel ; 
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Sig Class 



class sig { 

Value value; 

char *name; 
public : 

sig (Value v) ; 

sig- operator- +(sig v) ; 

virtual Value simulate ( ) ; 

virtual void gen_code ( ostream &os) ; 

} ; 

sig sig: : operator +(aig v) { 
sigadd s; 
add.left = &v; 
add. right « this; 
return add; r 

> 

Value sig: : simulate ( ) < 
return value/ 

> 

sig: : gen_code (ostream &os) { 
os << name; 

> 



Derived Operator Class 



class sigadd : public sig { 

sig *left; 

sig *right; 
public : 

Value simulateO; 
void gen_code ( ostream &os); 

>; 

Value sigadd: : simulate ( ) { 
return left->eval() + 
right->eval ( ) ; 

> 

sigadd: : gen_code (ostream &os) { 
os << left->cg() 
<< M + M 
<< right->cg ( ) ; 

) 
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sig a, b, c, d; 

k> = a + 3; 

d = (b + c) << 3; 
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fsm f; 
initial sO; 
state si; 

sO << allways 
si << cnd(eof) 
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